home *** CD-ROM | disk | FTP | other *** search
/ Sprite 1984 - 1993 / Sprite 1984 - 1993.iso / src / cmds / perl / dist / perlsh < prev    next >
Text File  |  1991-06-10  |  383b  |  16 lines
  1. #!/usr/bin/perl
  2.  
  3. # Poor man's perl shell.
  4.  
  5. # Simply type two carriage returns every time you want to evaluate.
  6. # Note that it must be a complete perl statement--don't type double
  7. #  carriage return in the middle of a loop.
  8.  
  9. $/ = '';    # set paragraph mode
  10. $SHlinesep = "\n";
  11. while ($SHcmd = <>) {
  12.     $/ = $SHlinesep;
  13.     eval $SHcmd; print $@ || "\n";
  14.     $SHlinesep = $/; $/ = '';
  15. }
  16.